home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
87xx
/
8712a.d64
/
multipunkt zeich
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
737b
|
30 lines
60394 REM
60395 REM *** MULTI-PUNKT SETZEN ***
60396 REM
60397 REM FA = FARBE DES PUNKTES (0-3)
60398 REM X,Y = KOORDINATEN DES PUNKTES
60399 REM
60400 GA=320*INT(Y/8)+(Y AND 7)+(8*INT(X/4))+8192:REM GRAFIKADRESSE ERRECHNEN
60405 REM * BITNUMMERN ERRECHNEN *
60410 M1=2*(3-(X AND 3))
60420 M2=M1+1
60425 REM * WELCHE FARBE ? *
60430 ON FA+1 GOTO 60450,60460,60470,60480
60440 PRINT "?FALSCHE FARBE":END
60445 REM * BITKOMBINATIONEN DER FARBEN *
60450 B1=0:B2=0:GOTO 60490
60460 B1=0:B2=1:GOTO 60490
60470 B1=1:B2=0:GOTO 60490
60480 B1=1:B2=1
60490 IF B1=0 THEN M=M1:GOSUB 60540:REM BIT1 LOESCHEN
60500 IF B1=1 THEN M=M1:GOSUB 60560:REM BIT1 SETZEN
60510 IF B2=0 THEN M=M2:GOSUB 60540:REM BIT2 LOESCHEN
60520 IF B2=1 THEN M=M2:GOSUB 60560:REM BIT2 SETZEN
60530 RETURN
60535 REM * BIT LOESCHEN *
60540 POKE GA,PEEK(GA) AND (255-2^M)
60550 RETURN
60555 REM * BIT SETZEN *
60560 POKE GA,PEEK(GA) OR 2^M
60570 RETURN